perm filename SUPPOR.NEW[1,JRA] blob sn#005859 filedate 1972-08-25 generic text, type T, neo UTF8
00100	(DE SUPPORT(X)(PROG NIL(COND ((NOT(EQ LVL 1))(SETQ STRATEGY NIL)(RETURN T))
00200	(T(RETURN(MEMBER(CDR X) SUPPORT))))))